home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00231.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  869 b   |  32 lines
  1. on mouseDown me
  2.   repeat while the mouseDown
  3.     if the locV of sprite 46 = 175 then
  4.       sprite(46).color = rgb(255, 0, 255)
  5.       set the blend of sprite 46 to 100
  6.     else
  7.       if the locV of sprite 46 < 175 then
  8.         set the blend of sprite 46 to 100
  9.         redr = 255
  10.         redg = (55 + (120 - the locV of sprite 46)) * 2.125
  11.         redb = redr
  12.         sprite(46).color = rgb(redr, redg, redb)
  13.       else
  14.         set the blend of sprite 46 to (176 + (150 - the locV of sprite 46)) * 0.66700000000000004
  15.       end if
  16.     end if
  17.     set the locV of sprite 46 to the mouseV
  18.     set the locV of sprite 65 to the mouseV
  19.     if the blend of sprite 46 < 10 then
  20.       showit(65, 65)
  21.     else
  22.       hideit(65, 65)
  23.     end if
  24.     updateStage()
  25.   end repeat
  26. end
  27.  
  28. on mouseUp me
  29.   set the locV of sprite 46 to the mouseV
  30.   set the locV of sprite 65 to the mouseV
  31. end
  32.